/*  srfrrsub.cpp  by K.Tsuru  */
// function ID = 811 BARDIX
/********************************************************************
SRational class
operator m - n
(x.num/x.den)-(y.num/y.den)=(x.num*y.den-y.num*x.den)/(x.den*y.den)
********************************************************************/
#ifndef SN_H
#include "sn.h"
#endif

SRational RRSub(const SRational& x, const SRational& y){
    SRational z;    // z.reduceDone = FALSE;
    z.den = x.den*y.den;
    IISub(x.num*y.den, y.num*x.den, z.num);
    z.reduce(false);
    return z;
}